#!/usr/bin/perl
use strict;
use warnings;
my @list = qw(1 1 1 2 3 4 4);
my %seen = ();
my @uniq = grep { ! $seen{$_} ++ } @list;
print "@uniq\n"; 
